unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmListFrame, StdCtrls, frmMainFrame, ComCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    ListFrame: TListFrame;
    MainFrame: TMainFrame;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  ListFrame := TListFrame.Create(Self);
  with ListFrame do
  begin
    SetBounds(0,0,800,250);
    addField('id','ID');
    addField('naam','Naam');
    addField('nationaliteit','Nat');
    addTable('schaatser','');
    addCondition('WHERE id = 2');
    updateSQL;
  end;
  InsertControl(ListFrame);
  MainFrame := TMainFrame.Create(Self);
  MainFrame.SetBounds(0,250,250,200);
  InsertControl(MainFrame);
end;

end.
